home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / Bus / T-Z / VCR+(app+src) Folder / Sources / doStuff.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-03-16  |  3.6 KB  |  188 lines  |  [TEXT/KAHL]
  1. #include "VCRplus.h"
  2. #define ScreenDepth(gdh)    ((*((*gdh)->gdPMap))->pixelSize)
  3. #define dragscreenmargin 4 /*for dragging windows, leave this many pixels on all sides*/
  4.  
  5. extern    DialogPtr                theDialog;
  6. extern    unsigned long            myFreeMem;
  7.  
  8. short doDlgEvt(EventRecord *evp)
  9. {
  10.         DialogPtr                whichDlg;
  11.         short                itemHit;
  12.         char                    theKey;
  13.         Rect                    myPaletteRect;
  14.         Point                    whichColor;
  15.  
  16.     if (DialogSelect( evp, &whichDlg, &itemHit ) == FALSE )
  17.         return(0);                        //    no extra work needed ,  just return
  18.  
  19.     if ( evp->what == keyDown )
  20.     {
  21.         if ( evp->modifiers & cmdKey )
  22.         {    /*command key pressed */
  23.             theKey =  evp->message & charCodeMask;
  24.             switch (theKey)
  25.             {
  26.                 case 'C':                        //    copy
  27.                 case 'c':
  28.                     SelIText(theDialog, ((DialogPeek)theDialog)->editField +1, 0, 32767);    //    select all the text
  29.                     DlgCopy(theDialog);
  30.                     ZeroScrap();
  31.                     TEToScrap();
  32.                     myFreeMem = Min(MaxBlock(), myFreeMem);
  33.                     break;
  34.                 case 'Q':                        //    quit
  35.                 case 'q':
  36.                     ExitToShell();
  37.                     break;
  38.                 case 'A':                        //    Select All
  39.                 case 'a':
  40.                     SelIText(theDialog, ((DialogPeek)theDialog)->editField +1, 0, 32767);    //    select all the text
  41.                     break;
  42.             }
  43.             return(0);
  44.                     /* don't let unwanted command-keys into DialogSelect() */
  45.         }
  46.         return(0);
  47.     }
  48.  
  49.     if (DialogSelect( evp, &whichDlg, &itemHit ) == FALSE )
  50.         return(0);                            //    no extra work needed ,  just return
  51.  
  52.     if ( whichDlg == theDialog )                //    process the interaction
  53.     {        
  54.         switch ( itemHit )
  55.         {
  56.         case ok:
  57.             ExitToShell();                    //    user said to "DO IT"
  58.             break;
  59.         case dlgENCODER:                    //    encode button
  60.             if (validateEntry(ENCODE))
  61.                 encoder();
  62.             else
  63.                 SysBeep(3);
  64.             break;
  65.         case dlgDECODER:                    //    decode button
  66.             if (validateEntry(DECODE))
  67.                 decoder();
  68.             else
  69.                 SysBeep(3);
  70.             break;
  71.         }    /* end of switch */
  72.     }
  73. }
  74.  
  75. void handledrag (EventRecord ev, WindowPtr w)
  76.  {
  77.     
  78.         Rect r;
  79.  
  80.     r = screenBits.bounds; 
  81.      r.top = r.top + MBarHeight; /*access a QuickDraw global*/
  82.      r.left = r.left + dragscreenmargin;  
  83.      r.right = r.right - dragscreenmargin;
  84.        r.bottom = r.bottom - dragscreenmargin;
  85.       DragWindow (w, ev.where, &r);   
  86. } 
  87.  
  88.  
  89. int    handlemouse (EventRecord ev)
  90. {
  91.  
  92.     register short whichPart;
  93.     WindowPtr w;
  94.     Boolean    isTrue;
  95.     
  96.       whichPart = FindWindow (ev.where, &w);
  97.     
  98.     if (w != nil) 
  99.     
  100.         if (w != FrontWindow ())             /*just like all other Mac programs*/
  101.         {
  102.             SelectWindow (w);
  103.             return; /*the mouse click is consumed by the bringtofront operation*/
  104.         }
  105.     
  106.     switch (whichPart)
  107.     {
  108.         case inSysWindow:
  109.             SystemClick (&ev, w); 
  110.             break;
  111.         
  112.         case inMenuBar:
  113.             return(DoCommand(MenuSelect(ev.where)));
  114.             break;
  115.             
  116.         case inDrag:
  117.             handledrag (ev, w);
  118.             break;
  119.             
  120.         case inGoAway:
  121.             isTrue = TrackGoAway (w, ev.where);
  122.             if (isTrue)
  123.                 ExitToShell();
  124.             break;
  125.             
  126.     } /*switch*/
  127. } /*handlemouse*/
  128.  
  129.  
  130.  
  131. int DoCommand(long mResult)
  132. {
  133.     int        theItem;
  134.     Str255    name;
  135.     
  136.     theItem = LoWord(mResult);
  137.     switch (HiWord(mResult))
  138.     {
  139.         case appleID:
  140.             GetItem(GetMHandle(appleID), theItem, &name);
  141.             if (theItem == 1)
  142.                 Alert(128,0L);
  143.             else
  144.             {
  145.                 OpenDeskAcc(name);
  146.                 SetPort(theDialog);
  147.             }
  148.             break;
  149.  
  150.         case fileID: 
  151.             ExitToShell();
  152.             break;
  153.  
  154.         case editID: 
  155.             if (SystemEdit(theItem-1) == 0)
  156.             {
  157.                 switch (theItem)
  158.                 {
  159.                     case cutCommand:
  160.                         DlgCut(theDialog);
  161.                         break;
  162.     
  163.                     case copyCommand:
  164.                         SelIText(theDialog, 3, 0, 32767);    //    select all the text
  165.                         DlgCopy(theDialog);
  166.                         ZeroScrap();
  167.                         TEToScrap();
  168.                         break;
  169.         
  170.                     case pasteCommand:
  171.                         DlgPaste(theDialog);
  172.                         break;
  173.         
  174.                     case clearCommand:
  175.                         DlgDelete(theDialog);
  176.                         break;
  177.         
  178.                     case selectCommand:
  179.                         SelIText(theDialog, 3, 0, 32767);    //    select all the text
  180.                         break;
  181.                 }
  182.             }
  183.             break;
  184.     }
  185.     HiliteMenu(0);
  186.     return(1);
  187. }
  188.